home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / misc / pcq_libcode.lha / include / reqtools / Utility.i < prev   
Encoding:
Text File  |  1993-02-02  |  547 b   |  36 lines
  1. {
  2.  
  3. Pascal translation of the Utility /Hooks and /Tags by Richard Waspe.
  4.  
  5. Original C headers Copyright Commodore Business Machines
  6.  
  7. fiddled by Michael Glew 1992
  8. }
  9.  
  10. Type
  11.     Hook    = Record
  12.         h_MinNode    : MinNode;
  13.         h_Entry        : ^Integer;
  14.         h_SubEntry    : ^Integer;
  15.         h_Data        : Address
  16.     End;
  17.     HookPtr    = ^Hook;
  18.  
  19.     Tag    = Integer;
  20.  
  21.     TagItem    = Record
  22.         ti_Tag    : Tag;
  23.         ti_Data    : Integer
  24.     End;
  25.     TagItemPtr    = ^TagItem;
  26.  
  27. Const
  28.     TAG_DONE    = 0;
  29.     TAG_END        = 0;
  30.     TAG_IGNORE    = 1;
  31.     TAG_MORE    = 2;
  32.     TAG_SKIP    = 3;
  33.     TAG_USER    = $80000000;
  34.     TAGFILTER_AND    = 0;
  35.     TAGFILTER_NOT    = 1;
  36.